﻿Public Class frmLogin1
    Private seg As New _Autentica

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'ROTINA DE VERIFICAÇÃO DE VALIDADE DE USO DO SISTEMA:
        'NO CONFIG, SÃO DEFINIDO 3 SET'S, PKEY = Primeira posição da data
        'SKEY segunda posição da data e TKEY = terceira posição da data
        'FORMANDO UMA DATA SENDO QUE PARA O PRIMEIRO E O SEGUNDO VALE OS DOIS PRIMEIROS
        'CARACATES PARA DIA E MES
        'CONSEQUENTEMENTE E 4 PRIMEIROS CARACTERS PARA O ANO DA TKEY
        'ASSIM DEFINO UMA DATA DE VALIDADE PARA O FUNCIONAMENTO DO SISTEMA

        Dim dia As String = My.Settings.PKEY_Product.Substring(0, 2)
        Dim mes As String = My.Settings.SKEY_Product.Substring(0, 2)
        Dim ano As String = My.Settings.TKEY_Product.Substring(0, 4)
        Dim SdataExpira As String = dia & "/" & mes & "/" & ano
        Dim dataExpira As Date = SdataExpira
        ' If Not Now.Date > dataExpira Then
        If seg.autenticaUsuarioSenha(txtLogin.Text, txtSenha.Text) = True Then
            Me.Close()
            frmPrincipal.menuAdministrador.Visible = True
            frmPrincipal.lblPath.Text = My.Settings.DataBase
            frmPrincipal.lblServidor.Text = My.Settings.DataSource
            frmPrincipal.MenuAtalhos.Visible = False
        Else
            MsgBox("Usuario ou senha invalido")
            Exit Sub
        End If
        'Else
        ' MsgBox("Manutenção corretiva, contate o Suporte do SIMO com urgencia")
        ' End If
    End Sub

    Private Sub frmLogin1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter
        txtLogin.Focus()
    End Sub

    Private Sub frmLogin1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.End Then
            If txtLogin.Text = "ADMIN" And txtSenha.Text = "simo@admin" Then
                Dim conf As New frmConfig
                conf.ShowDialog()
            End If
        End If
    End Sub

    Private Sub frmLogin1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtLogin.Focus()
    End Sub

    Private Sub mudaCorTextBoxAoReceberFoco(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSenha.Enter, txtLogin.Enter
        Dim c As Control = DirectCast(sender, Control)
        c.BackColor = Color.LightBlue
        txtLogin.SelectAll()
    End Sub

    Private Sub mudaCorTextBoxAoSairDoFoco(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSenha.Leave, txtLogin.Leave
        Dim c As Control = DirectCast(sender, Control)
        c.BackColor = Color.White
    End Sub

    Private Sub frmLogin1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
        txtLogin.Focus()
    End Sub
End Class